home *** CD-ROM | disk | FTP | other *** search
/ HyperLib 1997 Winter - Disc 1 / HYPERLIB-1997-Winter-CD1.ISO.7z / HYPERLIB-1997-Winter-CD1.ISO / オンラインウェア / COM / CASTERM.sit / CASTERM / Utilities / Special / 必殺電報ラウンチャー！！ / SEND ALL[こんばんわ〜] < prev    next >
Text File  |  1994-02-09  |  1KB  |  83 lines
  1. #
  2. #　必殺電報ラウンチャー！！
  3. #  Script　for FreeStyle II
  4. #　Program by CASTER
  5. #
  6. #　４月にCASTERMの本がでますので、
  7. #　よろしくお願いします。
  8. #　このスクリプトは転載は禁止です。
  9. #全員に電報を打つ
  10. SETVAL3 = 3;
  11. SETVAL4 = 3;
  12. SETVAL5 = 3;
  13. SETSTR3 = " ";
  14. SETSTR4 = " ";
  15. SETSTR5 = " ";
  16. SETSTR6 = " ";
  17. SETSTR7 = " ";
  18. SETSTR8 = "?";
  19. SETSTR9 = "こんばんわ〜^m";
  20. SETVAL6 = 12;
  21. #
  22. #       送る文字列 STR9
  23. #       変えるスクリプトラベルVAL6
  24. #       電報＞ALL
  25. #
  26. L7;
  27. SEND(!^m);
  28.         CASE(選択してください : );
  29.                 GOTO (1);
  30.         CEND;
  31.         CASE(送り先 ( );
  32.         CEND;
  33. CFIN;
  34. L9;
  35.         IFCHAR ()) GOTO(8);
  36.         GETSTR(STR1,"[","]");
  37.         GETSTR(STR2," "," ");
  38.         SETVAL3 = 3;
  39. L10;
  40.         IFVAL (VAL3 == VAL4) GOTO(6);
  41.         CMPSCASE(VAL3,STR2);
  42.                 GOTO(9);
  43.         CEND;
  44.         CFIN;
  45.         VAL3 ++;
  46. GOTO(10);
  47. L6;
  48.         CMPSCASE(STR1,STR8);
  49.                 SEAR() : );
  50.                 SEND(^m);
  51.                 GOTO(11);
  52.         CEND;
  53.         CFIN;
  54.         SEAR() : );
  55.         SENDSTR(STR1);
  56.         SEND(^m);
  57.         SEAR(( ２１文字 ) : );
  58.         SENDSTR(STR9);
  59. L11;
  60.         SWAPSTR(VAL5,STR2);
  61.         VAL4 ++;
  62.         VAL5 ++;
  63.         SEAR(選択してください : );
  64.         GOTO(7);
  65. L8;
  66.         BEEP;
  67.         SEAR() : );
  68.         SEND(^m);
  69.         SEAR(選択してください : );
  70. #
  71. #　電報ALL終了
  72. #
  73. L2;
  74. SEAR(選択してください : );
  75. L1;
  76. #
  77. #L13;
  78. #        SEND(E^m); 
  79. #        SEAR(終了してよいですか ( Y ) : );
  80. #        SEND(Y^m);
  81. #        SDCD;
  82. END;
  83.